DR1='N:'
F1='REVENUE1'
F2='ACTIVIT1'
F3='ACT_PRO1'
F4='ACT_PHA1'
F11='REVDATE1'
F12='REVNAME1'
F13='REVDAT1X'
F21='ACTIVIX1'
F22='ACTITYP1'
F31='ACT_PRX1'
f41='ACT_PHX1'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON PAT_FILCOD TO &DR1&F1
   DO SIGNI
   INDE ON DATE_VISIT TO &DR1&F11
   DO SIGNI
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR1&F13
   DO SIGNI
   INDE ON PAT_NAME+PAT_F_NAME TO &DR1&F12
ENDIF
USE
IF NET_USE("&DR1&F2",.T.,'1',10)
   DO SIGNI
   INDE ON INV_NBER TO &DR1&F2
   DO SIGNI
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR1&F21
   DO SIGNI
   INDE ON PAT_CODTYP+DTOS(DATE_VISIT)+INV_NBER TO &DR1&F22
ENDIF
USE
IF NET_USE("&DR1&F3",.T.,'1',10)
   DO SIGNI
   INDE ON INV_NBER TO &DR1&F3
   DO SIGNI
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR1&F31
ENDIF
USE
IF NET_USE("&DR1&F4",.T.,'1',10)
   DO SIGNI
   INDE ON INV_NBER TO &DR1&F4
   DO SIGNI
   INDE ON DTOS(DATE_VISIT)+INV_NBER TO &DR1&F41
ENDIF
